home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1986 July / 1986-07.d64 / hi-res dump (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  996b  |  20 lines
  1. 60000 rem for mps-801, mps-803, 1525 printers
  2. 60005 sl=8192:rem start of hi-res screen
  3. 60010 dimsc(127),a$(25,40):fori=0to127:readsc(i):t=t+sc(i):next
  4. 60020 if t<>24512 then print"error in data statements":stop
  5. 60030 data128,192,160,224,144,208,176,240,136,200,168,232,152,216,184,248,132
  6. 60040 data196,164,228,148,212,180,244,140,204,172,236,156,220,188,252,130,194
  7. 60050 data162,226,146,210,178,242,138,202,170,234,154,218,186,250,134,198,166
  8. 60060 data230,150,214,182,246,142,206,174,238,158,222,190,254,129,193,161,225
  9. 60070 data145,209,177,241,137,201,169,233,153,217,185,249,133,197,165,229,149
  10. 60080 data213,181,245,141,205,173,237,157,221,189,253,131,195,163,227,147,211
  11. 60090 data179,243,139,203,171,235,155,219,187,251,135,199,167,231,151,215,183
  12. 60100 data247,143,207,175,239,159,223,191,255
  13. 60110 open4,4:fori=7680+slto7992+slstep8:m=(i-7680-sl)/8+1
  14. 60120 forj=i-7680toistep320:n=(i-j)/320+1:fork=j+7tojstep-1:x=peek(k)
  15. 60130 ifx>127thenx=x-64:goto60130
  16. 60140 ifk=j+7thena$(n,m)=a$(n,m)+chr$(sc(xandpeek(k-1)+128)):goto60160
  17. 60150 a$(n,m)=a$(n,m)+chr$(sc(x))
  18. 60160 next:next:forl=1to25:print#4,chr$(8)a$(l,m);:next:print#4,chr$(8):next
  19. 60170 print#4:close4
  20.